home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 3: CDPD 3
/
Almathera Ten on Ten - Disc 3: CDPD3.iso
/
fish
/
001-100
/
001-025
/
024
/
modula-2
/
m2
/
waitforbreak.mod
< prev
next >
Wrap
Text File
|
1995-03-17
|
867b
|
32 lines
(********************************************************************************
Name : WaitForBreak.MOD
Version : 1.0
Purpose : Demo for use of Breaks
Author : ms
Modified : 13.3.86 18:55 ms
********************************************************************************)
MODULE WaitForBreak;
FROM Terminal IMPORT Write, WriteString, WriteLn, Read;
FROM AMIGADos IMPORT Delay;
FROM Breaks IMPORT BreakFlags, DetectBreak;
BEGIN
LOOP
Delay(25);
Write('.');
IF DetectBreak(breakC) THEN
WriteString('ctrl-c detected'); WriteLn; EXIT
ELSIF DetectBreak(breakD) THEN
WriteString('ctrl-d detected'); WriteLn
ELSIF DetectBreak(breakE) THEN
WriteString('ctrl-e detected'); WriteLn
ELSIF DetectBreak(breakF) THEN
WriteString('ctrl-f detected'); WriteLn
END
END
END WaitForBreak.